From e9c8e2488687e915d5aa38b5d45db756a2e7dc4f Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Wed, 28 Apr 1993 22:48:52 +0000 Subject: [PATCH] (vc-revert-buffer1): Ignore non-marker elts of compilation-error-list. --- lisp/vc.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index 0f7a3557544..cbbec3bbb5b 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -282,10 +282,11 @@ the master name of FILE; this is appended to an optional list of FLAGS." (buffer-error-marked-p nil)) (while (and errors (not buffer-error-marked-p)) - (if (eq buffer - (marker-buffer - (car (cdr (car errors))))) - (setq buffer-error-marked-p t)) + (and (markerp (car (cdr (car errors)))) + (eq buffer + (marker-buffer + (car (cdr (car errors))))) + (setq buffer-error-marked-p t)) (setq errors (cdr errors))) (if buffer-error-marked-p buffer))) (buffer-list))))))) -- 2.30.2